(yow): Use an arg to distinguish interactive calls, not interactive-p.

diff --git a/lisp/play/yow.el b/lisp/play/yow.el
index c23bd706abd1f140d10045badd5a959e26b1d55c..90708d4897defc3925fee701bc9854030317985d 100644 (file)
--- a/lisp/play/yow.el
+++ b/lisp/play/yow.el
@@ -49,13 +49,13 @@
 (defconst yow-after-load-message "I have SEEN the CONSING!!")
 
 ;;;###autoload
-(defun yow (&optional insert)
+(defun yow (&optional insert display)
   "Return or display a random Zippy quotation.  With prefix arg, insert it."
-  (interactive "P")
+  (interactive "P\np")
   (let ((yow (cookie yow-file yow-load-message yow-after-load-message)))
     (cond (insert
           (insert yow))
-         ((not (interactive-p))
+         ((not display)
           yow)
          (t
           (message "%s" yow)))))